Software Vault: The Gold Collection/Software Vault - The Gold Collection (American Databankers) (1993).ISO/cdr53/pctv4n_1.zip/PLAYERIN.TXT

Text File | 1993-06-10 | 963b | 36 lines

' Listing 3 - PlayerIn.Frm
Dim LevelText(1 To 3) As String

Sub LevelButton_Click (Index As Integer)
    NewValue% = LevelButton(Index).Value
    Players(Index + 1).Level = NewValue%
    LevelButton(Index).Caption = "Difficulty Level: " + LevelText$(NewValue%)
End Sub

Sub OkButton_Click ()
    For i% = 1 To 2
        Players(i%).Name = PlayerName(i% - 1).Text
        Players(i%).Score = 0
    Next i%
    PlayerInfoForm.Hide
End Sub

Sub Form_Load ()
    LevelText$(1) = "Beginner"
    LevelText$(2) = "Intermediate"
    LevelText$(3) = "Advanced"
    For i% = 1 To 2
        PlayerName(i% - 1).Text = Players(i%).Name
        LevelButton(i% - 1).Value = Players(i%).Level
        LevelButton(i% - 1).Caption = LevelText$(Players(i%).Level)
    Next i%
End Sub

Sub PlayerName_KeyPress (Index As Integer, KeyAscii As Integer)
    If KeyAscii = 13 Then
        OkButton.SpecialOp = 1
        KeyAscii = 0
    End If
End Sub